home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / jess.vim < prev    next >
Encoding:
Text File  |  2001-05-11  |  7.1 KB  |  162 lines
  1. " Vim syntax file
  2. " Language:    Jess
  3. " Maintainer:    Paul Baleme <pbaleme@mail.com>
  4. " Last change:    September 14, 2000
  5. " Based on lisp.vim by : Dr. Charles E. Campbell, Jr. <cec@gryphon.gsfc.nasa.gov>
  6.  
  7. " For version 5.x: Clear all syntax items
  8. " For version 6.x: Quit when a syntax file was already loaded
  9. if version < 600
  10.   syntax clear
  11. elseif exists("b:current_syntax")
  12.   finish
  13. endif
  14.  
  15. if version < 600
  16.   set iskeyword=42,43,45,47-58,60-62,64-90,97-122,_
  17. else
  18.   setlocal iskeyword=42,43,45,47-58,60-62,64-90,97-122,_
  19. endif
  20.  
  21. " Lists
  22. syn match    jessSymbol    ![^()'`,"; \t]\+!    contained
  23. syn match    jessBarSymbol    !|..\{-}|!        contained
  24. syn region    jessList matchgroup=Delimiter start="(" skip="|.\{-}|" matchgroup=Delimiter end=")" contains=jessAtom,jessBQList,jessConcat,jessDeclaration,jessList,jessNumber,jessSymbol,jessSpecial,jessFunc,jessKey,jessAtomMark,jessString,jessComment,jessBarSymbol,jessAtomBarSymbol,jessVar
  25. syn region    jessBQList    matchgroup=PreProc   start="`("    skip="|.\{-}|" matchgroup=PreProc   end=")" contains=jessAtom,jessBQList,jessConcat,jessDeclaration,jessList,jessNumber,jessSpecial,jessSymbol,jessFunc,jessKey,jessVar,jessAtomMark,jessString,jessComment,jessBarSymbol,jessAtomBarSymbol
  26.  
  27. " Atoms
  28. syn match    jessAtomMark    "'"
  29. syn match    jessAtom    "'("me=e-1    contains=jessAtomMark    nextgroup=jessAtomList
  30. syn match    jessAtom    "'[^ \t()]\+"    contains=jessAtomMark
  31. syn match    jessAtomBarSymbol    !'|..\{-}|!    contains=jessAtomMark
  32. syn region    jessAtom    start=+'"+    skip=+\\"+ end=+"+
  33. syn region    jessAtomList    matchgroup=Special start="("    skip="|.\{-}|" matchgroup=Special end=")"    contained contains=jessAtomList,jessAtomNmbr0,jessString,jessComment,jessAtomBarSymbol
  34. syn match    jessAtomNmbr    "\<[0-9]\+"            contained
  35.  
  36. " Standard jess Functions and Macros
  37. syn keyword jessFunc    *   +   **  -   /   <   >   <=  >=  <>  =
  38. syn keyword jessFunc    long            longp
  39. syn keyword jessFunc    abs             agenda              and
  40. syn keyword jessFunc    assert          assert-string       bag
  41. syn keyword jessFunc    batch           bind                bit-and
  42. syn keyword jessFunc    bit-not         bit-or              bload
  43. syn keyword jessFunc    bsave           build               call
  44. syn keyword jessFunc    clear           clear-storage       close
  45. syn keyword jessFunc    complement$     context             count-query-results
  46. syn keyword jessFunc    create$
  47. syn keyword jessFunc    delete$             div
  48. syn keyword jessFunc    do-backward-chaining                e
  49. syn keyword jessFunc    engine          eq                  eq*
  50. syn keyword jessFunc    eval            evenp               exit
  51. syn keyword jessFunc    exp             explode$            external-addressp
  52. syn keyword jessFunc    fact-slot-value facts               fetch
  53. syn keyword jessFunc    first$          float               floatp
  54. syn keyword jessFunc    foreach         format              gensym*
  55. syn keyword jessFunc    get             get-fact-duplication
  56. syn keyword jessFunc    get-member      get-multithreaded-io
  57. syn keyword jessFunc    get-reset-globals                   get-salience-evaluation
  58. syn keyword jessFunc    halt            if                  implode$
  59. syn keyword jessFunc    import          insert$             integer
  60. syn keyword jessFunc    integerp        intersection$       jess-version-number
  61. syn keyword jessFunc    jess-version-string                 length$
  62. syn keyword jessFunc    lexemep         list-function$      load-facts
  63. syn keyword jessFunc    load-function   load-package        log
  64. syn keyword jessFunc    log10           lowcase             matches
  65. syn keyword jessFunc    max             member$             min
  66. syn keyword jessFunc    mod             modify              multifieldp
  67. syn keyword jessFunc    neq             new                 not
  68. syn keyword jessFunc    nth$            numberp             oddp
  69. syn keyword jessFunc    open            or                  pi
  70. syn keyword jessFunc    ppdeffunction   ppdefglobal         ddpefrule
  71. syn keyword jessFunc    printout        random              read
  72. syn keyword jessFunc    readline        replace$            reset
  73. syn keyword jessFunc    rest$           retract             retract-string
  74. syn keyword jessFunc    return          round               rules
  75. syn keyword jessFunc    run             run-query           run-until-halt
  76. syn keyword jessFunc    save-facts      set                 set-fact-duplication
  77. syn keyword jessFunc    set-factory     set-member          set-multithreaded-io
  78. syn keyword jessFunc    set-node-index-hash                 set-reset-globals
  79. syn keyword jessFunc    set-salience-evaluation             set-strategy
  80. syn keyword jessFunc    setgen          show-deffacts       show-deftemplates
  81. syn keyword jessFunc    show-jess-listeners                 socket
  82. syn keyword jessFunc    sqrt            store               str-cat
  83. syn keyword jessFunc    str-compare     str-index           str-length
  84. syn keyword jessFunc    stringp         sub-string          subseq$
  85. syn keyword jessFunc    subsetp         sym-cat             symbolp
  86. syn keyword jessFunc    system          throw               time
  87. syn keyword jessFunc    try             undefadvice         undefinstance
  88. syn keyword jessFunc    undefrule       union$              unwatch
  89. syn keyword jessFunc    upcase          view                watch
  90. syn keyword jessFunc    while
  91. syn match   jessFunc    "\<c[ad]\+r\>"
  92.  
  93. " jess Keywords (modifiers)
  94. syn keyword jessKey        defglobal       deffunction         defrule
  95. syn keyword jessKey        deffacts
  96. syn keyword jessKey        defadvice       defclass            definstance
  97.  
  98. " Standard jess Variables
  99. syn region    jessVar    start="?"         end="[^a-zA-Z0-9]"me=e-1
  100.  
  101. " Strings
  102. syn region    jessString    start=+"+    skip=+\\"+ end=+"+
  103.  
  104. " Shared with Declarations, Macros, Functions
  105. "syn keyword    jessDeclaration
  106.  
  107. syn match    jessNumber    "[0-9]\+"
  108.  
  109. syn match    jessSpecial    "\*[a-zA-Z_][a-zA-Z_0-9-]*\*"
  110. syn match    jessSpecial    !#|[^()'`,"; \t]\+|#!
  111. syn match    jessSpecial    !#x[0-9a-fA-F]\+!
  112. syn match    jessSpecial    !#o[0-7]\+!
  113. syn match    jessSpecial    !#b[01]\+!
  114. syn match    jessSpecial    !#\\[ -\~]!
  115. syn match    jessSpecial    !#[':][^()'`,"; \t]\+!
  116. syn match    jessSpecial    !#([^()'`,"; \t]\+)!
  117.  
  118. syn match    jessConcat    "\s\.\s"
  119. syntax match    jessParenError    ")"
  120.  
  121. " Comments
  122. syn match    jessComment    ";.*$"
  123.  
  124. " synchronization
  125. syn sync lines=100
  126.  
  127. " Define the default highlighting.
  128. " For version 5.7 and earlier: only when not done already
  129. " For version 5.8 and later: only when an item doesn't have highlighting yet
  130. if version >= 508 || !exists("did_jess_syntax_inits")
  131.   if version < 508
  132.     let did_jess_syntax_inits = 1
  133.     command -nargs=+ HiLink hi link <args>
  134.   else
  135.     command -nargs=+ HiLink hi def link <args>
  136.   endif
  137.  
  138.   HiLink jessAtomNmbr    jessNumber
  139.   HiLink jessAtomMark    jessMark
  140.  
  141.   HiLink jessAtom        Identifier
  142.   HiLink jessAtomBarSymbol    Special
  143.   HiLink jessBarSymbol    Special
  144.   HiLink jessComment    Comment
  145.   HiLink jessConcat    Statement
  146.   HiLink jessDeclaration    Statement
  147.   HiLink jessFunc        Statement
  148.   HiLink jessKey        Type
  149.   HiLink jessMark        Delimiter
  150.   HiLink jessNumber    Number
  151.   HiLink jessParenError    Error
  152.   HiLink jessSpecial    Type
  153.   HiLink jessString    String
  154.   HiLink jessVar                      Identifier
  155.  
  156.   delcommand HiLink
  157. endif
  158.  
  159. let b:current_syntax = "jess"
  160.  
  161. " vim: ts=18
  162.